#################################################################################
# Plot Revise

par(mar=c(4,3,2,1), mfrow=c(3,1), cex.lab=.8, cex.axis=.8,  mgp=c(2, .5, 0), oma=c(1,1,1,1))

plot(av.ACME.des, 1,  axes=F,  ylab="", xlim=c(-.3,.3), ylim=c(-.5, 1.5), main="", cex=1.5, pch=17, xlab="Causal Effect of Liberal Policy on Welfare Deservingness")
grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, col="grey")
axis(1, col="white")
#axis(3, col="white")

segments(av.ACME.des-1.96*av.ACME.se.des, 1, av.ACME.des+1.96*av.ACME.se.des, 1)
text(-.3, 1, "ACME:", pos=4, cex=.8)
mtext("A) Welfare Deservingess", side=3, line=0, adj=0, cex=.8)

points(av.ANDE.des, 0, pch=17, cex=1.5)
segments(av.ANDE.des-1.96*av.ANDE.se.des, 0, av.ANDE.des+1.96*av.ANDE.se.des, 0)
text(-.3, 0, "ANDE:", pos=4, cex=.8)


plot(av.ACME.vot, 1,  axes=F,  ylab="", xlim=c(-.3,.3), ylim=c(-.5, 1.5), main="", cex=1.5, pch=17, xlab="Causal Effect of Liberal Policy on Right to Vote")
grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, col="grey")
axis(1, col="white")
#axis(3, col="white")

segments(av.ACME.vot-1.96*av.ACME.se.vot, 1, av.ACME.vot+1.96*av.ACME.se.vot, 1)
text(-.15, 1, "ACME:", pos=4, cex=.8)
mtext("B) Right to Vote", side=3, line=0, adj=0, cex=.8)

points(av.ANDE.vot, 0, pch=17, cex=1.5)
segments(av.ANDE.vot-1.96*av.ANDE.se.vot, 0, av.ANDE.vot+1.96*av.ANDE.se.vot, 0)
text(-.15, 0, "ANDE:", pos=4, cex=.8)


plot(av.ACME.off, 1,  axes=F,  ylab="", xlim=c(-.3,.3), ylim=c(-.5, 1.5), main="", cex=1.5, pch=17, xlab="Causal Effect of Liberal Policy on Right to Public Office")
grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, col="grey")
axis(1, col="white")
#axis(3, col="white")

segments(av.ACME.off-1.96*av.ACME.se.off, 1, av.ACME.off+1.96*av.ACME.se.off, 1)
text(-.15, 1, "ACME:", pos=4, cex=.8)
mtext("C) Right to Hold Public Office", side=3, line=0, adj=0, cex=.8)

points(av.ANDE.off, 0, pch=17, cex=1.5)
segments(av.ANDE.off-1.96*av.ANDE.se.off, 0, av.ANDE.off+1.96*av.ANDE.se.off, 0)
text(-.15, 0, "ANDE:", pos=4, cex=.8)




